Public Class ViewerForm

    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Width = Me.Width + 20
        Me.Height = Me.Height + 20

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Width = Me.Width - 20
        Me.Height = Me.Height - 20
    End Sub

    Private Sub picShowPicture_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picShowPicture.MouseMove
        Label1.Text = "X:" & e.X
        Label2.Text = "Y:" & e.Y
    End Sub

    Private Sub OpenPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenPictureToolStripMenuItem.Click
        OpenPicture()
    End Sub

    Private Sub ConfirmOnExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConfirmOnExitToolStripMenuItem.Click
        ConfirmOnExitToolStripMenuItem.Checked = Not (ConfirmOnExitToolStripMenuItem.Checked)
    End Sub

    Private Sub QuitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub DrawBorderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrawBorderToolStripMenuItem.Click
        DrawBorder(picShowPicture)
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click


    End Sub

    Private Sub DrawBorderToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrawBorderToolStripMenuItem1.Click
        Dim objgra As Graphics
        objgra = Me.CreateGraphics
        objgra.Clear(SystemColors.Control)
        objgra.DrawRectangle(Pens.Blue, picShowPicture.Left - 1, picShowPicture.Top - 1, picShowPicture.Width + 1, picShowPicture.Height + 1)
        objgra.Dispose()
    End Sub

    Private Sub tbbopenpicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbopenpicture.Click
        OpenPicture()

    End Sub

    Private Sub tbbdrawborder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbdrawborder.Click
        DrawBorder(picShowPicture)
    End Sub

    Private Sub tbboptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbboptions.Click

    End Sub
End Class
